home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap18 / dun18_3.txt < prev    next >
Encoding:
Text File  |  1997-12-18  |  8.5 KB  |  219 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  2. <html><head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. <title>Baseball Cards</title></head>
  5. <body bgcolor="#FFFFFF">
  6. <p>
  7. <object id="cards" ondatasetcomplete="dataloaded()"
  8. classid="CLSID:333C7BC4-460F-11D0-BC04-0080C7055A83" width="192" height="192">
  9.   <param name="DataURL" value="cards.txt">
  10.   <param name="UseHeader" value="1">
  11.   <param name="Sort" value="year; cardnumber">
  12. </object>
  13. </p>
  14.  
  15. <!-- START modified from Listing 18.2 -->
  16. <h3 align="center">Use any of these buttons to sort the data:</h3>
  17. <p align="center"><input type="button" value="Year/Card Number" name="B1"
  18. onclick="buttonclick(1)"><input type="button" value="Description" name="B2"
  19. onclick="buttonclick(2)"><input type="button" value="Year/Grade" name="B3"
  20. onclick="buttonclick(3)"><input type="button" value="Value" name="B4"
  21. onclick="buttonclick(4)"></p>
  22. <h3 align="center">Or, to sort by any column, click the column's header.</h3>
  23. <!-- END modified from Listing 18.2 -->
  24.  
  25. <table border="1" datasrc="#cards" align="center" cellpadding="2">
  26. <THEAD>
  27.   <tr>
  28.     <td align="left" id="year" onclick="tableclick('year')"
  29.         bgcolor="#00FFFF"><big>+Year</big></td>
  30.     <td align="left" id="CardNumber" onclick="tableclick('cardnumber')"
  31.         bgcolor="#00FFFF"><big>+Number</big></td>
  32.     <td align="left" id="setname" onclick="tableclick('setname')"
  33.         bgcolor="#00FFFF"><big>Set Name</big></td>
  34.     <td align="left" id="issuer" onclick="tableclick('issuer')"
  35.         bgcolor="#00FFFF"><big>Issuer</big></td>
  36.     <td align="left" id="description" onclick="tableclick('description')"
  37.         bgcolor="#00FFFF"><big>Description</big></td>
  38.     <td align="left" id="grade" onclick="tableclick('grade')"
  39.         bgcolor="#00FFFF"><big>Grade</big></td>
  40.     <td align="right" id="value" onclick="tableclick('value')"
  41.         bgcolor="#00FFFF"><big>Value</big></td>
  42.   </tr>
  43. </THEAD>
  44.   <tr>
  45.     <td><div datafld="year"></div></td>
  46.     <td><div datafld="cardnumber"></div></td>
  47.     <td><div datafld="setname"></div></td>
  48.     <td><div datafld="issuer"></div></td>
  49.     <td><div datafld="description"></div></td>
  50.     <td><div datafld="grade"></div></td>
  51.     <td width="50" align="right"><div datafld="value"></div></td>
  52.   </tr>
  53. <TFOOT>
  54.   <tr>
  55.     <td colspan="6" align="right" height="40" bgcolor="#000080">
  56.     <font color="#FF0000" size="4"><strong>Total:</strong></font></td>
  57.     <td valign="center" align="right" bgcolor="#000080">
  58.     <font color="#FF0000" size="4">
  59.     <strong><div id="TotalText"></div></strong></font></td>
  60.   </tr>
  61. </TFOOT>
  62. </table>
  63.  
  64. <p>
  65. <script language="VBScript"><!--
  66.  
  67. sub tableclick(columnname)
  68.  
  69. if columnname <> "year" and
  70. cc]   (left(document.all.item("year").innertext,1) = "+"
  71. cc]   or left(document.all.item("year").innertext,1) = "-") then
  72.       document.all.item("year").innerHTML = "<big>" +
  73. cc]         mid(document.all.item("year").innertext,2) + "</big>"
  74. end if
  75.  
  76. if columnname <> "cardnumber" and
  77. cc]   (left(document.all.item("cardnumber").innertext,1) = "+" or
  78. cc]   left(document.all.item("cardnumber").innertext,1) = "-") then
  79.       document.all.item("cardnumber").innerHTML = "<big>" +
  80. cc]          mid(document.all.item("cardnumber").innertext,2) + "</big>"
  81. end if
  82.  
  83. if columnname <> "setname" and
  84. cc]  (left(document.all.item("setname").innertext,1) = "+" or
  85. cc]  left(document.all.item("setname").innertext,1) = "-") then
  86.     document.all.item("setname").innerHTML = "<big>" +
  87. cc]        mid(document.all.item("setname").innertext,2) + "</big>"
  88. end if
  89.  
  90. if columnname <> "issuer" and
  91. cc]  (left(document.all.item("issuer").innertext,1) = "+" or
  92. cc]   left(document.all.item("issuer").innertext,1) = "-") then
  93.      document.all.item("issuer").innerHTML = "<big>" +
  94. cc]       mid(document.all.item("issuer").innertext,2) + "</big>"
  95. end if
  96.  
  97. if columnname <> "description" and
  98. cc]  (left(document.all.item("description").innertext,1) = "+" or
  99. cc]   left(document.all.item("description").innertext,1) = "-") then
  100.      document.all.item("description").innerHTML = "<big>" +
  101. cc]       mid(document.all.item("description").innertext,2) + "</big>"
  102. end if
  103.  
  104. if columnname <> "grade" and
  105. cc]  (left(document.all.item("grade").innertext,1) = "+" or
  106. cc]   left(document.all.item("grade").innertext,1) = "-") then
  107.      document.all.item("grade").innerHTML = "<big>" +
  108. cc]       mid(document.all.item("grade").innertext,2) + "</big>"
  109. end if
  110.  
  111. if columnname <> "value" and
  112. cc]  (left(document.all.item("value").innertext,1) = "+" or
  113. cc]   left(document.all.item("value").innertext,1) = "-") then
  114.      document.all.item("value").innerHTML = "<big>" +
  115. cc]       mid(document.all.item("value").innertext,2) + "</big>"
  116. end if
  117.  
  118. if left(document.all.item(columnname).innertext,1) = "+" then
  119.    document.all.item(columnname).innerHTML =  "<big>-" +
  120. cc]     mid(document.all.item(columnname).innertext,2) + "</big>"
  121.    cards.sort = "-" + columnname
  122. elseif left(document.all.item(columnname).innertext,1) = "-" then
  123.    document.all.item(columnname).innerHTML = "<big>+" +
  124. cc]     mid(document.all.item(columnname).innertext,2) + "</big>"
  125.    cards.sort = columnname
  126. else
  127.    document.all.item(columnname).innerHTML = "<big>+" +
  128. cc]     document.all.item(columnname).innertext + "</big>"
  129.    cards.sort = columnname
  130. end if
  131.  
  132. cards.reset
  133.  
  134. end sub
  135.  
  136. <!-- START modified from Listing 18.2 -->
  137. sub buttonclick(button)
  138.  
  139. if (left(document.all.item("year").innertext,1) = "+" or
  140. cc]  left(document.all.item("year").innertext,1) = "-") then
  141.     document.all.item("year").innerHTML = "<big>" +
  142. cc]       mid(document.all.item("year").innertext,2) + "</big>"
  143. end if
  144.  
  145. if (left(document.all.item("cardnumber").innertext,1) = "+" or
  146. cc]  left(document.all.item("cardnumber").innertext,1) = "-") then
  147.     document.all.item("cardnumber").innerHTML = "<big>" +
  148. cc]       mid(document.all.item("cardnumber").innertext,2) + "</big>"
  149. end if
  150.  
  151. if (left(document.all.item("setname").innertext,1) = "+" or
  152. cc]  left(document.all.item("setname").innertext,1) = "-") then
  153.     document.all.item("setname").innerHTML = "<big>" +
  154. cc]       mid(document.all.item("setname").innertext,2) + "</big>"
  155. end if
  156.  
  157. if (left(document.all.item("issuer").innertext,1) = "+" or
  158. cc]  left(document.all.item("issuer").innertext,1) = "-") then
  159.     document.all.item("issuer").innerHTML = "<big>" +
  160. cc]       mid(document.all.item("issuer").innertext,2) + "</big>"
  161. end if
  162.  
  163. if (left(document.all.item("description").innertext,1) = "+" or
  164. cc]  left(document.all.item("description").innertext,1) = "-") then
  165.     document.all.item("description").innerHTML = "<big>" +
  166. cc]       mid(document.all.item("description").innertext,2) + "</big>"
  167. end if
  168.  
  169. if (left(document.all.item("grade").innertext,1) = "+" or
  170. cc]  left(document.all.item("grade").innertext,1) = "-") then
  171.     document.all.item("grade").innerHTML = "<big>" +
  172. cc]       mid(document.all.item("grade").innertext,2) + "</big>"
  173. end if
  174.  
  175. if (left(document.all.item("value").innertext,1) = "+" or
  176. cc]  left(document.all.item("value").innertext,1) = "-") then
  177.     document.all.item("value").innerHTML = "<big>" +
  178. cc]       mid(document.all.item("value").innertext,2) + "</big>"
  179. end if
  180.  
  181. select case button
  182. case 1
  183.    document.all.item("year").innerHTML = "<big>+" +
  184. cc]             document.all.item("year").innertext + "</big>"
  185.    document.all.item("cardnumber").innerHTML = "<big>+" +
  186. cc]             document.all.item("cardnumber").innertext + "</big>"
  187.    cards.sort = "year; cardnumber"
  188. case 2
  189.    document.all.item("description").innerHTML = "<big>+" +
  190. cc]             document.all.item("description").innertext + "</big>"
  191.     cards.sort = "description"
  192. case 3
  193.    document.all.item("year").innerHTML = "<big>+" +
  194. cc]             document.all.item("year").innertext + "</big>"
  195.    document.all.item("grade").innerHTML = "<big>+" +
  196. cc]             document.all.item("grade").innertext + "</big>"
  197.    cards.sort = "year; grade"
  198. case 4
  199.    document.all.item("value").innerHTML = "<big>+" +
  200. cc]             document.all.item("value").innertext + "</big>"
  201.    cards.sort = "value"
  202. end select
  203.  
  204. cards.reset
  205. end sub
  206. <!-- END modified from Listing 18.2 -->
  207.  
  208. sub dataloaded()
  209.  
  210. while not(cards.recordset.eof)
  211.    total = total + cards.recordset("value")
  212.    cards.recordset.movenext
  213. wend
  214. document.all.totaltext.innertext =  total
  215.  
  216. end sub
  217. --></script> </p>
  218. </body></html>
  219.